home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / ddbbs101.lha / Doors / Rexxdir / MComment.dd < prev    next >
Encoding:
Text File  |  1995-02-18  |  6.7 KB  |  243 lines
  1. /***************************************************************************/
  2. /*              DDMComment v1.05 by DarkElf (11.01.95)                     */
  3. /*    You are not allowed to chance ANYTHING from this little program!     */
  4. /***************************************************************************/
  5.  
  6. parse arg node
  7. Options results
  8. nodeid = "DREAMREXX"node
  9. address value nodeid
  10.  
  11. signal on error
  12. signal on ioerr
  13. signal on syntax
  14.  
  15. VER = 'v1.o5'
  16. tr = transmit
  17. SYSTEMINFO 3
  18. argus = result
  19. GETUSER 22
  20. axxut = result
  21. if axxut = 5 then do
  22. ddcommand "E SYSOP"
  23. SHUTDOWN
  24. EXIT
  25. end
  26. if ~exists("ENV:DreamUtils") then call ENDO
  27. call open(DU,"ENV:DreamUtils",'R')
  28. do
  29.     DreUti=ReadLn(DU)
  30. end
  31. call Close(DU)
  32. if ~exists(''DreUti'DDMComment.Config') then call make
  33. confikki:
  34. call open(CFG,''DreUti'DDMComment.Config','R')
  35. do
  36.     max = STRIP(readln(CFG))
  37.     name1 = STRIP(readln(CFG))
  38.     name2 = STRIP(readln(CFG))
  39.     name3 = STRIP(readln(CFG))
  40.     name4 = STRIP(readln(CFG))
  41.     name5 = STRIP(readln(CFG))
  42.     name6 = STRIP(readln(CFG))
  43.     name7 = STRIP(readln(CFG))
  44.     name8 = STRIP(readln(CFG))
  45.     name9 = STRIP(readln(CFG))
  46.     name10 = STRIP(readln(CFG))
  47.     org1 = STRIP(readln(CFG))
  48.     org2 = STRIP(readln(CFG))
  49.     org3 = STRIP(readln(CFG))
  50.     org4 = STRIP(readln(CFG))
  51.     org5 = STRIP(readln(CFG))
  52.     org6 = STRIP(readln(CFG))
  53.     org7 = STRIP(readln(CFG))
  54.     org8 = STRIP(readln(CFG))
  55.     org9 = STRIP(readln(CFG))
  56.     org10 = STRIP(readln(CFG))
  57. end
  58. call Close(CFG)
  59. prestart:
  60.     if argus = 'RESULT' | argus = '0' | argus > max then call StART
  61.     if datatype(''argus'') ~= 'NUM' then call StART
  62.     if datatype(''argus'') = 'NUM' then do
  63.         numba = argus
  64.         call dadaa
  65.     end
  66. StART:
  67.     newline
  68.     newline
  69.     tr "                                                                              "
  70.     tr " DD-MultiComment Door "VER" (c)'95 /)arkElf / sUPREME - oUTlOOK by zEUs / DNt "
  71.     newline
  72.     if max >= 1 then do
  73.         nam1st = SUBSTR(""name1"",1,17,' ')
  74.         org1st = SUBSTR(""org1"",1,30,' ')
  75.         tr '1) 'nam1st'  - 'org1st''
  76.     end
  77.     else call loppurivi
  78.     if max >= 2 then do
  79.         nam2nd = SUBSTR(""name2"",1,17,' ')
  80.         org2nd = SUBSTR(""org2"",1,30,' ')
  81.         tr '2) 'nam2nd'  - 'org2nd''
  82.     end
  83.     else call loppurivi
  84.     if max >= 3 then do
  85.         nam3rd = SUBSTR(""name3"",1,17,' ')
  86.         org3rd = SUBSTR(""org3"",1,30,' ')
  87.         tr '3) 'nam3rd'  - 'org3rd''
  88.     end
  89.     else call loppurivi
  90.     if max >= 4 then do
  91.         nam4th = SUBSTR(""name4"",1,17,' ')
  92.         org4th = SUBSTR(""org4"",1,30,' ')
  93.         tr '4) 'nam4th'  - 'org4th''
  94.     end
  95.     else call loppurivi
  96.     if max >= 5 then do
  97.         nam5th = SUBSTR(""name5"",1,17,' ')
  98.         org5th = SUBSTR(""org5"",1,30,' ')
  99.         tr '5) 'nam5th'  - 'org5th''
  100.     end
  101.     if max >= 6 then do
  102.         nam6th = SUBSTR(""name6"",1,17,' ')
  103.         org6th = SUBSTR(""org6"",1,30,' ')
  104.         tr '6) 'nam6th'  - 'org6th''
  105.     end
  106.     if max >= 7 then do
  107.         nam7th = SUBSTR(""name7"",1,17,' ')
  108.         org7th = SUBSTR(""org7"",1,30,' ')
  109.         tr '7) 'nam7th'  - 'org7th''
  110.     end
  111.     if max >= 8 then do
  112.         nam8th = SUBSTR(""name8"",1,17,' ')
  113.         org8th = SUBSTR(""org8"",1,30,' ')
  114.         tr '8) 'nam8th'  - 'org8th''
  115.     end
  116.     if max >= 9 then do
  117.         nam9th = SUBSTR(""name9"",1,17,' ')
  118.         org9th = SUBSTR(""org9"",1,30,' ')
  119.         tr '9) 'nam9th'  - 'org9th''
  120.     end
  121.     if max = 10 then do
  122.         nam10th = SUBSTR(""name10"",1,16,' ')
  123.         org10th = SUBSTR(""org10"",1,30,' ')
  124.         tr '10) 'nam10th'  - 'org10th''
  125.     end
  126. loppurivi:
  127.     tr "                                                                              "
  128.     tr " DD-MultiComment Door "VER" (c)'95 /)arkElf / sUPREME - oUTlOOK by zEUs / DNt "
  129.     newline
  130.     send 'Select Number :> '
  131.     getchar
  132.     numba = result
  133. dadaa:
  134.     select
  135.         when numba > max then call StART
  136.         when numba = 1 then do
  137.         if 'name1' = '-' then call StART
  138.         ddcommand "E "name1""
  139.         end
  140.         when numba = 2 then do
  141.         if 'name2' = '-' then call StART
  142.         ddcommand "E "name2""
  143.         end
  144.         when numba = 3 then do
  145.         if 'name3' = '-' then call StART
  146.         ddcommand "E "name3""
  147.         end
  148.         when numba = 4 then do
  149.         if 'name4' = '-' then call StART
  150.         ddcommand "E "name4""
  151.         end
  152.         when numba = 5 then do
  153.         if 'name5' = '-' then call StART
  154.         ddcommand "E "name5""
  155.         end
  156.         when numba = 6 then do
  157.         if 'name6' = '-' then call StART
  158.         ddcommand "E "name6""
  159.         end
  160.         when numba = 7 then do
  161.         if 'name7' = '-' then call StART
  162.         ddcommand "E "name7""
  163.         end
  164.         when numba = 8 then do
  165.         if 'name8' = '-' then call StART
  166.         ddcommand "E "name8""
  167.         end
  168.         when numba = 9 then do
  169.         if 'name9' = '-' then call StART
  170.         ddcommand "E "name9""
  171.         end
  172.         when numba = 10 then do
  173.         if 'name10' = '-' then call StART
  174.         ddcommand "E "name10""
  175.         end
  176.         when numba = result then do
  177.             send 'EXIT!'
  178.             call FuckingEND
  179.         end
  180.         otherwise call StART
  181.     end
  182.  
  183. IOERR:
  184. ERROR:
  185. SYNTAX:
  186. FuckingEND:
  187. newline
  188. newline
  189.  
  190. ENDO:
  191. SHUTDOWN
  192. EXIT
  193.  
  194. MAKE:
  195. do
  196.     address command 'echo > 'DreUti'DDMComment.Config'
  197.     call open file, ''DreUti'DDMComment.Config','W'
  198.     call writeln file, "1"
  199.     call writeln file, "DarkElf"
  200.     call writeln file, "-"
  201.     call writeln file, "-"
  202.     call writeln file, "-"
  203.     call writeln file, "-"
  204.     call writeln file, "-"
  205.     call writeln file, "-"
  206.     call writeln file, "-"
  207.     call writeln file, "-"
  208.     call writeln file, "-"
  209.     call writeln file, "The ChameLeoN ^ sUPREME"
  210.     call writeln file, "-"
  211.     call writeln file, "-"
  212.     call writeln file, "-"
  213.     call writeln file, "-"
  214.     call writeln file, "-"
  215.     call writeln file, "-"
  216.     call writeln file, "-"
  217.     call writeln file, "-"
  218.     call writeln file, "-"
  219.     call writeln file, ";Number of comment readers (10=max"
  220.     call writeln file, ";Name of the 1st comment reader"
  221.     call writeln file, ";Name of the 2nd comment reader"
  222.     call writeln file, ";Name of the 3rd comment reader"
  223.     call writeln file, ";Name of the 4th comment reader"
  224.     call writeln file, ";Name of the 5th comment reader"
  225.     call writeln file, ";Name of the 6th comment reader"
  226.     call writeln file, ";Name of the 7th comment reader"
  227.     call writeln file, ";Name of the 8th comment reader"
  228.     call writeln file, ";Name of the 9th comment reader"
  229.     call writeln file, ";Name of the 10th comment reader"
  230.     call writeln file, ";Organization of the 1st comment reader"
  231.     call writeln file, ";Organization of the 2nd comment reader"
  232.     call writeln file, ";Organization of the 3rd comment reader"
  233.     call writeln file, ";Organization of the 4th comment reader"
  234.     call writeln file, ";Organization of the 5th comment reader"
  235.     call writeln file, ";Organization of the 6th comment reader"
  236.     call writeln file, ";Organization of the 7th comment reader"
  237.     call writeln file, ";Organization of the 8th comment reader"
  238.     call writeln file, ";Organization of the 9th comment reader"
  239.     call writeln file, ";Organization of the 10th comment reader"
  240.     call close file
  241.     call confikki
  242. end
  243.